home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update21.zoo / libg++ / src / diffsrc < prev    next >
Encoding:
Text File  |  1992-06-03  |  50.4 KB  |  2,213 lines
  1. *** 1.2    1992/04/19 17:18:59
  2. --- PatchLev.h    1992/06/03 13:59:56
  3. ***************
  4. *** 1,5 ****
  5.   
  6. ! #define    PatchLevel "07"
  7.   
  8.   /*
  9.    *    the Patch Level above is to identify the version
  10. --- 1,5 ----
  11.   
  12. ! #define    PatchLevel "11"
  13.   
  14.   /*
  15.    *    the Patch Level above is to identify the version
  16. *** 1.1    1992/03/22 07:42:32
  17. --- dtoa.cc    1992/06/03 13:59:58
  18. ***************
  19. *** 30,35 ****
  20. --- 30,37 ----
  21.   #define M_LN10        2.30258509299404568402
  22.   #endif
  23.   
  24. + // OBSOLETE ROUTINE!
  25. + 
  26.   char* dtoa(double fpnum,  char cvt, int width, int prec)
  27.   {
  28.     // set up workspace
  29. *** 1.1    1992/03/22 07:42:32
  30. --- editbuf.cc    1992/06/03 13:59:59
  31. ***************
  32. *** 15,22 ****
  33.   //    License along with this library; if not, write to the Free
  34.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  35.   
  36. ! #include "ioprivat.h"
  37. ! #include "editbuf.h"
  38.   #include <stddef.h>
  39.   #ifdef __GNUG__
  40.   #pragma implementation
  41. --- 15,22 ----
  42.   //    License along with this library; if not, write to the Free
  43.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  44.   
  45. ! #include <ioprivat.h>
  46. ! #include <editbuf.h>
  47.   #include <stddef.h>
  48.   #ifdef __GNUG__
  49.   #pragma implementation
  50. *** 1.1    1992/03/22 07:42:32
  51. --- error.cc    1992/06/03 13:59:59
  52. ***************
  53. *** 19,24 ****
  54. --- 19,25 ----
  55.   #pragma implementation
  56.   #endif
  57.   #include <builtin.h>
  58. + #include <osfcn.h>
  59.   
  60.   _VOLATILE_VOID default_one_arg_error_handler(const char* msg)
  61.   {
  62. *** 1.1    1992/03/22 07:42:32
  63. --- fstream.cc    1992/06/03 14:00:00
  64. ***************
  65. *** 16,22 ****
  66.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  67.   
  68.   #define _STREAM_COMPAT
  69. ! #include "ioprivat.h"
  70.   #include <fstream.h>
  71.   #ifdef __GNUG__
  72.   #pragma implementation
  73. --- 16,22 ----
  74.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  75.   
  76.   #define _STREAM_COMPAT
  77. ! #include <ioprivat.h>
  78.   #include <fstream.h>
  79.   #ifdef __GNUG__
  80.   #pragma implementation
  81. *** 1.1    1992/03/22 07:42:32
  82. --- ident.c    1992/06/03 14:00:01
  83. ***************
  84. *** 1,2 ****
  85. ! #include "PatchLev.h"
  86.   static char Ident[] = "$Patchlevel: " PatchLevel " $";
  87. --- 1,2 ----
  88. ! #include <PatchLev.h>
  89.   static char Ident[] = "$Patchlevel: " PatchLevel " $";
  90. *** 1.1    1992/03/22 07:42:32
  91. --- igetline.cc    1992/06/03 14:00:01
  92. ***************
  93. *** 15,21 ****
  94.   //    License along with this library; if not, write to the Free
  95.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  96.   
  97. ! #include "iostream.h"
  98.   
  99.   istream& istream::getline(char* buf, int len, char delim)
  100.   {
  101. --- 15,21 ----
  102.   //    License along with this library; if not, write to the Free
  103.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  104.   
  105. ! #include <iostream.h>
  106.   
  107.   istream& istream::getline(char* buf, int len, char delim)
  108.   {
  109. *** 1.1    1992/03/22 07:42:32
  110. --- makebuf.cc    1992/06/03 14:00:02
  111. ***************
  112. *** 21,28 ****
  113.   static char sccsid[] = "%W% (Berkeley) %G%";
  114.   #endif /* LIBC_SCCS and not lint */
  115.   
  116. ! #include "ioprivat.h"
  117. ! #include "fstream.h"
  118.   #include <sys/types.h>
  119.   #include <sys/stat.h>
  120.   
  121. --- 21,28 ----
  122.   static char sccsid[] = "%W% (Berkeley) %G%";
  123.   #endif /* LIBC_SCCS and not lint */
  124.   
  125. ! #include <ioprivat.h>
  126. ! #include <fstream.h>
  127.   #include <sys/types.h>
  128.   #include <sys/stat.h>
  129.   
  130. ***************
  131. *** 32,37 ****
  132. --- 32,41 ----
  133.   #define BUFSIZ __DEFAULT_BUFSIZ__
  134.   #endif
  135.   
  136. + #ifndef S_ISCHR
  137. + #  define S_ISCHR(X) (((X) & S_IFMT) == S_IFCHR)
  138. + #endif
  139. + 
  140.   /*
  141.    * Allocate a file buffer, or switch to unbuffered I/O.
  142.    * Per the ANSI C standard, ALL tty devices default to line buffered.
  143. ***************
  144. *** 41,50 ****
  145.    */
  146.   int filebuf::doallocate()
  147.   {
  148. -     if (unbuffered()) {
  149. -     setb(_fb._shortbuf, _fb._shortbuf+1, 0);
  150. -     return 1;
  151. -     }
  152.       register size_t size, couldbetty;
  153.       register char *p;
  154.       struct stat st;
  155. --- 45,50 ----
  156. ***************
  157. *** 51,67 ****
  158.   
  159.       if (fd() < 0 || _fstat(fd(), &st) < 0) {
  160.       couldbetty = 0;
  161. !     size = BUFSIZ;
  162.   #if 0
  163.       /* do not try to optimise fseek() */
  164.       fp->_flags |= __SNPT;
  165.   #endif
  166.       } else {
  167. !     couldbetty = (st.st_mode & S_IFMT) == S_IFCHR;
  168. ! #if defined(atarist) || defined(NO_ST_BLKSIZE)
  169. !     size = BUFSIZ;
  170.   #else
  171. !     size = st.st_blksize <= 0 ? BUFSIZ : st.st_blksize;
  172.   #endif
  173.       }
  174.   #ifdef USE_MALLOC_BUF
  175. --- 51,67 ----
  176.   
  177.       if (fd() < 0 || _fstat(fd(), &st) < 0) {
  178.       couldbetty = 0;
  179. !     size = _G_BUFSIZ;
  180.   #if 0
  181.       /* do not try to optimise fseek() */
  182.       fp->_flags |= __SNPT;
  183.   #endif
  184.       } else {
  185. !     couldbetty = S_ISCHR(st.st_mode);
  186. ! #if (!defined(atarist)) && _G_HAVE_ST_BLKSIZE
  187. !     size = st.st_blksize <= 0 ? _G_BUFSIZ : st.st_blksize;
  188.   #else
  189. !     size = _G_BUFSIZ;
  190.   #endif
  191.       }
  192.   #ifdef USE_MALLOC_BUF
  193. *** 1.1    1992/03/22 21:19:02
  194. --- makefile.32    1992/06/03 14:00:03
  195. ***************
  196. *** 10,32 ****
  197.   GXXLIB = $(LIB)
  198.   
  199.   # common subset of options; no int size or omit-frame-pointer:
  200. ! COMMONOPT = -O
  201.   COMMONFLAGS =
  202. ! COMMONDEFINES = -DNO_LIBGXX_MALLOC
  203.   
  204.   COPTS= $(COMMONOPT) $(COMMONFLAGS) $(COMMONDEFINES)  \
  205. !        -fstrength-reduce -DNDEBUG $(XFLAGS)
  206.   
  207.   GXXOPTS= $(COMMONOPT) $(COMMONFLAGS) $(COMMONDEFINES)  \
  208. !        -felide-constructors -fsave-memoized $(XXFLAGS) -I$(GXXINC)
  209.   
  210.   # Base options CC; includes int size but not omit-frame-pointer
  211.   CFFLAGS = $(COPTS)
  212. ! GXXFFLAGS = $(GXXOPTS)
  213.   
  214.   # normal CFLAGS including int size and omit-frame-pointer
  215. ! CFLAGS= $(CFFLAGS)
  216. ! GXXFLAGS = $(GXXFFLAGS)
  217.   
  218.   # cflags for stuff that needs to be compiled with 32 bit ints
  219.   CLFLAGS= $(CFLAGS)
  220. --- 10,34 ----
  221.   GXXLIB = $(LIB)
  222.   
  223.   # common subset of options; no int size or omit-frame-pointer:
  224. ! COMMONOPT = -O2 -fstrength-reduce
  225.   COMMONFLAGS =
  226. ! COMMONDEFINES = -DNO_LIBGXX_MALLOC -DNDEBUG
  227.   
  228.   COPTS= $(COMMONOPT) $(COMMONFLAGS) $(COMMONDEFINES)  \
  229. !        $(XFLAGS)
  230.   
  231. + # dont know why but -fsave-memoized gives false errors
  232. + # about access to protected members
  233.   GXXOPTS= $(COMMONOPT) $(COMMONFLAGS) $(COMMONDEFINES)  \
  234. !        -felide-constructors  $(XXFLAGS) -I$(GXXINC)
  235.   
  236.   # Base options CC; includes int size but not omit-frame-pointer
  237.   CFFLAGS = $(COPTS)
  238. ! GXXFFLAGS = $(GXXOPTS) 
  239.   
  240.   # normal CFLAGS including int size and omit-frame-pointer
  241. ! CFLAGS= $(CFFLAGS) -fomit-frame-pointer
  242. ! GXXFLAGS = $(GXXFFLAGS) -fomit-frame-pointer
  243.   
  244.   # cflags for stuff that needs to be compiled with 32 bit ints
  245.   CLFLAGS= $(CFLAGS)
  246. ***************
  247. *** 36,42 ****
  248.   ASFLAGS= -c
  249.   
  250.   # pre-processor flags
  251. ! PPFLAGS= -P -DNDEBUG
  252.   
  253.   # library targets
  254.   LIBG++= g++.olb
  255. --- 38,44 ----
  256.   ASFLAGS= -c
  257.   
  258.   # pre-processor flags
  259. ! PPFLAGS= -P # -DNDEBUG
  260.   
  261.   # library targets
  262.   LIBG++= g++.olb
  263. *** 1.1    1992/03/22 21:19:02
  264. --- mincl    1992/06/03 14:00:03
  265. ***************
  266. *** 13,26 ****
  267.   xgeom.cc xgetopt.cc xhypgeom.cc xinteger.cc  xlognorm.cc xmlcg.cc \
  268.   xnegexp.cc xnormal.cc xobstack.cc xpoisson.cc xrandom.cc xrationa.cc \
  269.   xregex.cc xrndint.cc xrng.cc xsmplhis.cc xsmplsta.cc \
  270. ! xstring.cc xuniform.cc xweibull.cc xyzzy.cc xeh.cc
  271.   
  272.   IOSRC = editbuf.cc filebuf.cc fstream.cc igetline.cc indstrea.cc iostream.cc \
  273.   makebuf.cc parsestr.cc sbufvfor.cc sbufvsca.cc sgetline.cc stdstrbu.cc \
  274. ! stdstrea.cc stream.cc streambu.cc strstrea.cc xplotfil.cc xsfile.cc
  275.   
  276. ! OBJ = gnulib3.o  _bin_del.o _bin_new.o _bin_nw.o ident.o\
  277. ! $(LIBSRC:.cc=.o) $(IOSRC:.cc=.o)
  278.   
  279.   all: $(ALL)
  280.   all020: $(ALL020)
  281. --- 13,31 ----
  282.   xgeom.cc xgetopt.cc xhypgeom.cc xinteger.cc  xlognorm.cc xmlcg.cc \
  283.   xnegexp.cc xnormal.cc xobstack.cc xpoisson.cc xrandom.cc xrationa.cc \
  284.   xregex.cc xrndint.cc xrng.cc xsmplhis.cc xsmplsta.cc \
  285. ! xstring.cc xuniform.cc xweibull.cc xeh.cc
  286.   
  287.   IOSRC = editbuf.cc filebuf.cc fstream.cc igetline.cc indstrea.cc iostream.cc \
  288.   makebuf.cc parsestr.cc sbufvfor.cc sbufvsca.cc sgetline.cc stdstrbu.cc \
  289. ! stdstrea.cc stream.cc streambu.cc strstrea.cc xplotfil.cc xsfile.cc \
  290. ! igetsb.cc
  291.   
  292. ! #
  293. ! # NOTE:: dummy.o MUST be the last object on this list. otherwise you'll
  294. ! #        end up with multiple definitions of global ctor/dtors
  295. ! #
  296. ! OBJ = gnulib3.o  _bin_del.o _bin_new.o _bin_nw.o ident.o \
  297. ! $(LIBSRC:.cc=.o) $(IOSRC:.cc=.o) dummy.o
  298.   
  299.   all: $(ALL)
  300.   all020: $(ALL020)
  301. *** 1.1    1992/03/22 07:42:32
  302. --- new.cc    1992/06/03 14:00:04
  303. ***************
  304. *** 1,5 ****
  305. - #ifndef NO_LIBGXX_MALLOC
  306. - 
  307.   // This may look like C code, but it is really -*- C++ -*-
  308.   
  309.   /* 
  310. --- 1,3 ----
  311. ***************
  312. *** 22,34 ****
  313.   #ifdef __GNUG__
  314.   #pragma implementation
  315.   #endif
  316. ! #include <stddef.h>
  317. ! #include <stdlib.h>
  318.   
  319.   void* operator new(size_t n) 
  320.   {
  321.     return malloc (n);
  322.   }
  323. - 
  324. - 
  325.   #endif
  326. --- 20,31 ----
  327.   #ifdef __GNUG__
  328.   #pragma implementation
  329.   #endif
  330. ! #include <new.h>
  331. ! 
  332. ! #if 0 /* ndef NO_LIBGXX_MALLOC */
  333.   
  334.   void* operator new(size_t n) 
  335.   {
  336.     return malloc (n);
  337.   }
  338.   #endif
  339. *** 1.1    1992/03/22 07:42:32
  340. --- parsestr.cc    1992/06/03 14:00:04
  341. ***************
  342. *** 18,25 ****
  343.   #ifdef __GNUG__
  344.   #pragma implementation
  345.   #endif
  346. ! #include "ioprivat.h"
  347. ! #include "parsestr.h"
  348.   
  349.   streambuf* parsebuf::setbuf(char*, size_t)
  350.   {
  351. --- 18,25 ----
  352.   #ifdef __GNUG__
  353.   #pragma implementation
  354.   #endif
  355. ! #include <ioprivat.h>
  356. ! #include <parsestr.h>
  357.   
  358.   streambuf* parsebuf::setbuf(char*, size_t)
  359.   {
  360. *** 1.1    1992/03/22 07:42:32
  361. --- regex.cc    1992/06/03 14:00:05
  362. ***************
  363. *** 45,60 ****
  364.   /* The `emacs' switch turns on certain special matching commands
  365.     that make sense only in emacs. */
  366.   
  367. ! #include "config.h"
  368. ! #include "lisp.h"
  369. ! #include "buffer.h"
  370. ! #include "syntax.h"
  371.   
  372.   #else  /* not emacs */
  373.   
  374.   #include <string.h>
  375.   
  376. ! #if defined (USG) || defined (STDC_HEADERS)
  377.   #if !(defined(BSTRING) || defined(atarist))
  378.   #define bcopy(s,d,n)    memcpy((d),(s),(n))
  379.   #define bcmp(s1,s2,n)    memcmp((s1),(s2),(n))
  380. --- 45,61 ----
  381.   /* The `emacs' switch turns on certain special matching commands
  382.     that make sense only in emacs. */
  383.   
  384. ! #include <config.h>
  385. ! #include <lisp.h>
  386. ! #include <buffer.h>
  387. ! #include <syntax.h>
  388.   
  389.   #else  /* not emacs */
  390.   
  391.   #include <string.h>
  392. + #include <g_config.h>
  393.   
  394. ! #if defined (_G_SYSV) || defined (STDC_HEADERS)
  395.   #if !(defined(BSTRING) || defined(atarist))
  396.   #define bcopy(s,d,n)    memcpy((d),(s),(n))
  397.   #define bcmp(s1,s2,n)    memcmp((s1),(s2),(n))
  398. ***************
  399. *** 121,127 ****
  400.   #endif
  401.   
  402.   /* Get the interface, including the syntax bits.  */
  403. ! #include "regex.h"
  404.   
  405.   
  406.   /* These are the command codes that appear in compiled regular
  407. --- 122,128 ----
  408.   #endif
  409.   
  410.   /* Get the interface, including the syntax bits.  */
  411. ! #include <regex.h>
  412.   
  413.   
  414.   /* These are the command codes that appear in compiled regular
  415. ***************
  416. *** 220,232 ****
  417.   #define NFAILURES 80
  418.   #endif
  419.   
  420. ! #ifdef CHAR_UNSIGNED
  421. ! #define SIGN_EXTEND_CHAR(c) ((c)>(char)127?(c)-256:(c)) /* for IBM RT */
  422. ! #endif
  423.   #ifndef SIGN_EXTEND_CHAR
  424. ! #define SIGN_EXTEND_CHAR(x) (x)
  425.   #endif
  426. !  
  427.   
  428.   /* Store NUMBER in two contiguous bytes starting at DESTINATION.  */
  429.   #define STORE_NUMBER(destination, number)                \
  430. --- 221,234 ----
  431.   #define NFAILURES 80
  432.   #endif
  433.   
  434. ! 
  435.   #ifndef SIGN_EXTEND_CHAR
  436. ! #ifdef __STDC__
  437. ! #define SIGN_EXTEND_CHAR(c) ((signed char)(c))
  438. ! #else
  439. ! #define SIGN_EXTEND_CHAR(c) (((c)^128) - 128) /* As in Harbison and Steele.  */
  440.   #endif
  441. ! #endif /* not SIGN_EXTEND_CHAR */
  442.   
  443.   /* Store NUMBER in two contiguous bytes starting at DESTINATION.  */
  444.   #define STORE_NUMBER(destination, number)                \
  445. ***************
  446. *** 2637,2643 ****
  447.   
  448.   #ifdef canned
  449.   
  450. ! #include "tests.h"
  451.   
  452.   typedef enum { extended_test, basic_test } test_type;
  453.   
  454. --- 2639,2645 ----
  455.   
  456.   #ifdef canned
  457.   
  458. ! #include <tests.h>
  459.   
  460.   typedef enum { extended_test, basic_test } test_type;
  461.   
  462. *** 1.1    1992/03/22 07:42:32
  463. --- sbufvfor.cc    1992/06/03 14:00:05
  464. ***************
  465. *** 27,39 ****
  466.    */
  467.   
  468.   #include <sys/types.h>
  469. ! #include "ioprivat.h"
  470.   #include <string.h>
  471. - #if __STDC__
  472.   #include <stdarg.h>
  473. - #else
  474. - #include <varargs.h>
  475. - #endif
  476.   
  477.   /*
  478.    * Define FLOATING_POINT to get floating point.
  479. --- 27,35 ----
  480.    */
  481.   
  482.   #include <sys/types.h>
  483. ! #include <ioprivat.h>
  484.   #include <string.h>
  485.   #include <stdarg.h>
  486.   
  487.   /*
  488.    * Define FLOATING_POINT to get floating point.
  489. ***************
  490. *** 51,57 ****
  491.    * worries about ungetc buffers and so forth.
  492.    */
  493.   
  494. ! class help_streambuf : public streambuf {
  495.     public:
  496.       char *buffer;
  497.       size_t buf_size;
  498. --- 47,53 ----
  499.    * worries about ungetc buffers and so forth.
  500.    */
  501.   
  502. ! class help_streambuf : public backupbuf {
  503.     public:
  504.       char *buffer;
  505.       size_t buf_size;
  506. ***************
  507. *** 85,98 ****
  508.   
  509.   int help_vform(streambuf *sb, char const *fmt0, va_list ap)
  510.   {
  511. !     char buf[BUFSIZ];
  512. !     help_streambuf helper(sb, buf, BUFSIZ);
  513.       return helper.vform(fmt0, ap);
  514.   }
  515.   
  516.   #ifdef FLOATING_POINT
  517.   
  518. ! #include "floatio.h"
  519.   #define    BUF        (MAXEXP+MAXFRACT+1)    /* + decimal point */
  520.   #define    DEFPREC        6
  521.   extern "C" double modf(double, double*);
  522. --- 81,97 ----
  523.   
  524.   int help_vform(streambuf *sb, char const *fmt0, va_list ap)
  525.   {
  526. !     char buf[_G_BUFSIZ]; // WARNING: on the atari _G_BUFSIZ is a
  527. !              // variable. thats OK with GCC but other
  528. !              // compilers will barf!
  529. ! 
  530. !     help_streambuf helper(sb, buf, _G_BUFSIZ);
  531.       return helper.vform(fmt0, ap);
  532.   }
  533.   
  534.   #ifdef FLOATING_POINT
  535.   
  536. ! #include <floatio.h>
  537.   #define    BUF        (MAXEXP+MAXFRACT+1)    /* + decimal point */
  538.   #define    DEFPREC        6
  539.   extern "C" double modf(double, double*);
  540. ***************
  541. *** 122,130 ****
  542.   #define    ZEROPAD        0x20        /* zero (as opposed to blank) pad */
  543.   #define    HEXPREFIX    0x40        /* add 0x or 0X prefix */
  544.   
  545. ! int streambuf::vform(char const *fmt0, _G_va_list args)
  546.   {
  547. -     va_list ap = (va_list)args;
  548.       register char *fmt;    /* format string */
  549.       register int ch;    /* character from fmt */
  550.       register int n;        /* handy integer (short term usage) */
  551. --- 121,128 ----
  552.   #define    ZEROPAD        0x20        /* zero (as opposed to blank) pad */
  553.   #define    HEXPREFIX    0x40        /* add 0x or 0X prefix */
  554.   
  555. ! int streambuf::vform(char const *fmt0, _G_va_list ap)
  556.   {
  557.       register char *fmt;    /* format string */
  558.       register int ch;    /* character from fmt */
  559.       register int n;        /* handy integer (short term usage) */
  560. ***************
  561. *** 190,199 ****
  562.       (flags&LONGINT ? va_arg(ap, unsigned long) : \
  563.           flags&SHORTINT ? (unsigned long)(unsigned short)va_arg(ap, int) : \
  564.           (unsigned long)va_arg(ap, unsigned int))
  565. - 
  566. -     /* sorry, fprintf(read_only_file, "") returns EOF, not 0 */
  567. -     if (!(_flags & _S_CAN_WRITE))
  568. -         return (EOF);
  569.   
  570.       /* optimise cerr (and other unbuffered Unix files) */
  571.       if (unbuffered())
  572. --- 188,193 ----
  573. *** 1.1    1992/03/22 07:42:32
  574. --- sbufvsca.cc    1992/06/03 14:00:06
  575. ***************
  576. *** 39,45 ****
  577.   #endif
  578.   
  579.   #ifdef FLOATING_POINT
  580. ! #include "floatio.h"
  581.   #define    BUF    (MAXEXP+MAXFRACT+3)    /* 3 = sign + decimal point + NUL */
  582.   #else
  583.   #define    BUF    40
  584. --- 39,45 ----
  585.   #endif
  586.   
  587.   #ifdef FLOATING_POINT
  588. ! #include <floatio.h>
  589.   #define    BUF    (MAXEXP+MAXFRACT+3)    /* 3 = sign + decimal point + NUL */
  590.   #else
  591.   #define    BUF    40
  592. ***************
  593. *** 84,92 ****
  594.   extern "C" u_long strtoul(const char*, char**, int);
  595.   static u_char *__sccl(register char *tab, register u_char *fmt);
  596.   
  597. ! int streambuf::vscan(char const *fmt0, _G_va_list args)
  598.   {
  599. -         va_list ap = (va_list)args;
  600.       register u_char *fmt = (u_char *)fmt0;
  601.       register int c;        /* character from format, or conversion */
  602.       register size_t width;    /* field width, or 0 */
  603. --- 84,91 ----
  604.   extern "C" u_long strtoul(const char*, char**, int);
  605.   static u_char *__sccl(register char *tab, register u_char *fmt);
  606.   
  607. ! int streambuf::vscan(char const *fmt0, _G_va_list ap)
  608.   {
  609.       register u_char *fmt = (u_char *)fmt0;
  610.       register int c;        /* character from format, or conversion */
  611.       register size_t width;    /* field width, or 0 */
  612. ***************
  613. *** 358,368 ****
  614.                   *p++ = *_gptr++;
  615.                   if (--width == 0)
  616.                       break;
  617. !                 if (sgetc() == EOF)
  618. !                     if (p == p0) {
  619.                       goto input_failure;
  620. !                     break;
  621. !                     }
  622.                   }
  623.                   n = p - p0;
  624.                   if (n == 0)
  625. --- 357,367 ----
  626.                   *p++ = *_gptr++;
  627.                   if (--width == 0)
  628.                       break;
  629. !                 if (sgetc() == EOF) {
  630. !                     if (p == p0)
  631.                       goto input_failure;
  632. !                     break;
  633. !                 }
  634.                   }
  635.                   n = p - p0;
  636.                   if (n == 0)
  637. *** 1.1    1992/03/22 07:42:32
  638. --- sgetline.cc    1992/06/03 14:00:06
  639. ***************
  640. *** 15,21 ****
  641.   //    License along with this library; if not, write to the Free
  642.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  643.   
  644. ! #include "ioprivat.h"
  645.   
  646.   // Algorithm based on that used by Berkeley pre-4.4 fgets implementation.
  647.   
  648. --- 15,21 ----
  649.   //    License along with this library; if not, write to the Free
  650.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  651.   
  652. ! #include <ioprivat.h>
  653.   
  654.   // Algorithm based on that used by Berkeley pre-4.4 fgets implementation.
  655.   
  656. *** 1.1    1992/03/22 07:42:32
  657. --- stdstrea.cc    1992/06/03 14:00:06
  658. ***************
  659. *** 15,23 ****
  660.   //    License along with this library; if not, write to the Free
  661.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  662.   
  663. ! #include "ioprivat.h"
  664. ! #include "ioconfig.h"
  665. ! #ifdef NAMES_HAVE_UNDERSCORE
  666.   #define UNDERSCORE "_"
  667.   #else
  668.   #define UNDERSCORE ""
  669. --- 15,24 ----
  670.   //    License along with this library; if not, write to the Free
  671.   //    Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  672.   
  673. ! #include <ioprivat.h>
  674. ! #include <g_config.h>
  675. ! 
  676. ! #if _G_NAMES_HAVE_UNDERSCORE
  677.   #define UNDERSCORE "_"
  678.   #else
  679.   #define UNDERSCORE ""
  680. ***************
  681. *** 38,44 ****
  682.   #define cout COUT
  683.   #define cerr CERR
  684.   #define clog CLOG
  685. ! #include "iostream.h"
  686.   #undef cin
  687.   #undef cout
  688.   #undef cerr
  689. --- 39,45 ----
  690.   #define cout COUT
  691.   #define cerr CERR
  692.   #define clog CLOG
  693. ! #include <iostream.h>
  694.   #undef cin
  695.   #undef cout
  696.   #undef cerr
  697. *** 1.1    1992/03/22 07:42:32
  698. --- stream.cc    1992/06/03 14:00:07
  699. ***************
  700. *** 1,8 ****
  701.   #include <stdarg.h>
  702. ! #include "ioprivat.h"
  703. ! #include "stream.h"
  704. ! #include "strstrea.h"
  705.   
  706.   static char Buffer[BUFSIZ];
  707.   #define EndBuffer (Buffer+BUFSIZ)
  708.   static char* next_chunk = Buffer; // Start of available part of Buffer.
  709. --- 1,16 ----
  710.   #include <stdarg.h>
  711. ! #include <ioprivat.h>
  712. ! #include <stream.h>
  713. ! #include <strstrea.h>
  714. ! 
  715. ! // WARNING: dont do this for the atari because _G_BUFSIZ is a variable
  716. ! // not a constant.
  717. ! #ifndef atarist
  718. ! #undef BUFSIZ
  719. ! #define BUFSIZ _G_BUFSIZ
  720. ! #endif
  721.   
  722. + 
  723.   static char Buffer[BUFSIZ];
  724.   #define EndBuffer (Buffer+BUFSIZ)
  725.   static char* next_chunk = Buffer; // Start of available part of Buffer.
  726. ***************
  727. *** 10,17 ****
  728.   char* form(const char* format, ...)
  729.   {
  730.       size_t space_left = EndBuffer - next_chunk;
  731. !     if (space_left < (BUFSIZ>>2)) // If less that 25% of the space is available
  732. !     next_chunk = Buffer; // start over.
  733.       char* buf = next_chunk;
  734.   
  735.       strstreambuf stream(buf, EndBuffer-buf-1, buf);
  736. --- 18,26 ----
  737.   char* form(const char* format, ...)
  738.   {
  739.       size_t space_left = EndBuffer - next_chunk;
  740. !     // If less that 25% of the space is available start over.
  741. !     if (space_left < (BUFSIZ>>2))
  742. !     next_chunk = Buffer;
  743.       char* buf = next_chunk;
  744.   
  745.       strstreambuf stream(buf, EndBuffer-buf-1, buf);
  746. ***************
  747. *** 44,51 ****
  748.       if (needed < (2+neg) || ptr > EndBuffer)
  749.       return NULL;
  750.       *--ptr = 0;
  751. -     if (neg)
  752. -     *--ptr = '-';
  753.       
  754.       if (i == 0)
  755.       *--ptr = '0';
  756. --- 53,58 ----
  757. ***************
  758. *** 58,63 ****
  759. --- 65,72 ----
  760.           ch += '0';
  761.       *--ptr = ch;
  762.       }
  763. +     if (neg)
  764. +     *--ptr = '-';
  765.       if (size == 0)
  766.       return ptr;
  767.       while (ptr > buf)
  768. *** 1.2    1992/04/19 17:18:59
  769. --- strstrea.cc    1992/06/03 14:00:07
  770. ***************
  771. *** 18,24 ****
  772.   #ifdef __GNUG__
  773.   #pragma implementation
  774.   #endif
  775. ! #include "ioprivat.h"
  776.   #include <strstrea.h>
  777.   
  778.   istrstream::istrstream(char *cp) : istream(NULL)
  779. --- 18,24 ----
  780.   #ifdef __GNUG__
  781.   #pragma implementation
  782.   #endif
  783. ! #include <ioprivat.h>
  784.   #include <strstrea.h>
  785.   
  786.   istrstream::istrstream(char *cp) : istream(NULL)
  787. ***************
  788. *** 135,141 ****
  789.       setb(_buffer, _buffer+_size);
  790.       setp(_buffer, _buffer+_size);
  791.       setg(_buffer, _buffer, _buffer);
  792. -     xsetflags(_S_CAN_READ | _S_CAN_WRITE);
  793.   }
  794.   
  795.   strstreambuf::strstreambuf(int initial)
  796. --- 135,140 ----
  797. ***************
  798. *** 150,156 ****
  799.       setb(_buffer, _buffer+_size);
  800.       setp(_buffer, _buffer+_size);
  801.       setg(_buffer, _buffer, _buffer);
  802. -     xsetflags(_S_CAN_READ | _S_CAN_WRITE);
  803.   }
  804.   
  805.   strstreambuf::strstreambuf(char *ptr, size_t size, char *pstart)
  806. --- 149,154 ----
  807. ***************
  808. *** 175,187 ****
  809.       }
  810.       else
  811.       _size = size;
  812. -     // I am not sure this change is correct... -- schenk@cpsc.ucalgary.ca
  813. -     _len = _size;
  814.       _buffer = ptr;
  815. -     int new_flags = _S_CAN_READ;
  816.       setb(_buffer, _buffer+_size);
  817.       if (pstart) {
  818. -     new_flags |= _S_CAN_WRITE;
  819.       setp(_buffer, _buffer+_size);
  820.       pbump(pstart-_buffer);
  821.       setg(_buffer, _buffer, pstart);
  822. --- 173,181 ----
  823. ***************
  824. *** 190,196 ****
  825.       setp(_buffer, _buffer); 
  826.       setg(_buffer, _buffer, _buffer+_size);
  827.       }
  828. !     xsetflags(new_flags);
  829.   }
  830.   
  831.   strstreambuf::~strstreambuf()
  832. --- 184,190 ----
  833.       setp(_buffer, _buffer); 
  834.       setg(_buffer, _buffer, _buffer+_size);
  835.       }
  836. !     _len = egptr() - _buffer;
  837.   }
  838.   
  839.   strstreambuf::~strstreambuf()
  840. ***************
  841. *** 203,210 ****
  842.                       int mode /*=ios::in|ios::out*/)
  843.   {
  844.       size_t cur_size = pcount();
  845. !     streampos new_pos = EOF; 
  846. !     if ((mode & ios::in) && (xflags() & _S_CAN_READ)) {
  847.       switch (dir) {
  848.         case ios::end:
  849.           off += cur_size;
  850. --- 197,206 ----
  851.                       int mode /*=ios::in|ios::out*/)
  852.   {
  853.       size_t cur_size = pcount();
  854. !     streampos new_pos = EOF;
  855. ! 
  856. !     // Move the get pointer, if requested.
  857. !     if (mode & ios::in) {
  858.       switch (dir) {
  859.         case ios::end:
  860.           off += cur_size;
  861. ***************
  862. *** 216,226 ****
  863.           break;
  864.       }
  865.       if (off < 0 || (size_t)off > cur_size)
  866. !         return (streampos)(EOF);
  867.       setg(_buffer, _buffer + off, _buffer + cur_size);
  868.       new_pos = off;
  869.       }
  870. !     if ((mode & ios::out) && (xflags() & _S_CAN_WRITE)) {
  871.       switch (dir) {
  872.         case ios::end:
  873.           off += cur_size;
  874. --- 212,224 ----
  875.           break;
  876.       }
  877.       if (off < 0 || (size_t)off > cur_size)
  878. !         return EOF;
  879.       setg(_buffer, _buffer + off, _buffer + cur_size);
  880.       new_pos = off;
  881.       }
  882. ! 
  883. !     // Move the put pointer, if requested.
  884. !     if (mode & ios::out) {
  885.       switch (dir) {
  886.         case ios::end:
  887.           off += cur_size;
  888. ***************
  889. *** 232,238 ****
  890.           break;
  891.       }
  892.       if (off < 0 || (size_t)off > cur_size)
  893. !         return (streampos)(EOF);
  894.       pbump(_buffer + off - pptr());
  895.       new_pos = off;
  896.       }
  897. --- 230,236 ----
  898.           break;
  899.       }
  900.       if (off < 0 || (size_t)off > cur_size)
  901. !         return EOF;
  902.       pbump(_buffer + off - pptr());
  903.       new_pos = off;
  904.       }
  905. *** 1.1    1992/03/22 07:42:32
  906. --- timer.cc    1992/06/03 14:00:07
  907. ***************
  908. *** 31,49 ****
  909.   #if 1
  910.   
  911.   #include <sys/types.h>
  912. ! #if defined(USG) || defined(atarist)
  913.   extern "C" {
  914.   #include <sys/param.h>
  915.   #include <sys/times.h>
  916.   }
  917. ! #else
  918. ! #include <osfcn.h>
  919.   #endif
  920. - 
  921. - #if defined(USG) || defined(atarist)
  922.   static struct tms Old_Time;
  923.   static struct tms New_Time;
  924.   #else
  925.   static struct rusage Old_Time;
  926.   static struct rusage New_Time;
  927.   #endif
  928. --- 31,49 ----
  929.   #if 1
  930.   
  931.   #include <sys/types.h>
  932. ! #include <g_config.h>
  933. ! #if !_G_HAVE_SYS_RESOURCE
  934.   extern "C" {
  935.   #include <sys/param.h>
  936.   #include <sys/times.h>
  937.   }
  938. ! #if !defined (HZ) && defined(CLK_TCK)
  939. ! #define HZ CLK_TCK
  940.   #endif
  941.   static struct tms Old_Time;
  942.   static struct tms New_Time;
  943.   #else
  944. + #include <osfcn.h>
  945.   static struct rusage Old_Time;
  946.   static struct rusage New_Time;
  947.   #endif
  948. ***************
  949. *** 52,58 ****
  950.   double start_timer()
  951.   {
  952.      Timer_Set = 1;
  953. ! #if defined(USG) || defined(atarist)
  954.      times(&Old_Time);
  955.      return((double) Old_Time.tms_utime / HZ);
  956.   #else
  957. --- 52,58 ----
  958.   double start_timer()
  959.   {
  960.      Timer_Set = 1;
  961. ! #if !_G_HAVE_SYS_RESOURCE
  962.      times(&Old_Time);
  963.      return((double) Old_Time.tms_utime / HZ);
  964.   #else
  965. ***************
  966. *** 72,84 ****
  967.      }   
  968.      else {
  969.       /* get process time */
  970. ! #if defined(USG) || defined(atarist)
  971.         times(&New_Time);
  972.   #else
  973.         getrusage(RUSAGE_SELF,&New_Time);
  974.   #endif
  975.         if (Last_Time == 0.0) {
  976. ! #if defined(USG) || defined(atarist)
  977.        return((double) (New_Time.tms_utime - Old_Time.tms_utime) / HZ);
  978.   #else
  979.            return((New_Time.ru_utime.tv_sec - Old_Time.ru_utime.tv_sec) + 
  980. --- 72,84 ----
  981.      }   
  982.      else {
  983.       /* get process time */
  984. ! #if !_G_HAVE_SYS_RESOURCE
  985.         times(&New_Time);
  986.   #else
  987.         getrusage(RUSAGE_SELF,&New_Time);
  988.   #endif
  989.         if (Last_Time == 0.0) {
  990. ! #if !_G_HAVE_SYS_RESOURCE
  991.        return((double) (New_Time.tms_utime - Old_Time.tms_utime) / HZ);
  992.   #else
  993.            return((New_Time.ru_utime.tv_sec - Old_Time.ru_utime.tv_sec) + 
  994. ***************
  995. *** 87,93 ****
  996.   #endif
  997.         }
  998.         else {
  999. ! #if defined(USG) || defined(atarist)
  1000.        return((double) New_Time.tms_utime / HZ - Last_Time);
  1001.   #else
  1002.            return((New_Time.ru_utime.tv_sec + 
  1003. --- 87,93 ----
  1004.   #endif
  1005.         }
  1006.         else {
  1007. ! #if !_G_HAVE_SYS_RESOURCE
  1008.        return((double) New_Time.tms_utime / HZ - Last_Time);
  1009.   #else
  1010.            return((New_Time.ru_utime.tv_sec + 
  1011. *** 1.2    1992/03/22 21:19:02
  1012. --- xbitset.cc    1992/06/03 14:00:08
  1013. ***************
  1014. *** 30,35 ****
  1015. --- 30,36 ----
  1016.   #include <new.h>
  1017.   #include <builtin.h>
  1018.   #include <string.h>
  1019. + #include <strstrea.h>
  1020.   
  1021.   void BitSet::error(const char* msg) const
  1022.   {
  1023. ***************
  1024. *** 752,807 ****
  1025.   const char* BitSettoa(const BitSet& x, char f, char t, char star)
  1026.   {
  1027.     trim(x.rep);
  1028. - 
  1029.     size_t wrksiz = (x.rep->len + 1) * BITSETBITS + 2;
  1030.     char* fmtbase = (char *) _libgxx_fmtq.alloc(wrksiz);
  1031. !   char* fmt = fmtbase;
  1032. ! 
  1033. !   const unsigned short* s = x.rep->s;
  1034. !   const unsigned short* top = &(s[x.rep->len - 1]);
  1035. ! 
  1036. !   while (s < top)
  1037. !   {
  1038. !     unsigned short a = *s++;
  1039. !     for (int j = 0; j < BITSETBITS; ++j)
  1040. !     {
  1041. !       *fmt++ = (a & 1)? t : f;
  1042. !       a >>= 1;
  1043. !     }
  1044. !   }
  1045. ! 
  1046. !   if (!x.rep->virt)
  1047. !   {
  1048. !     unsigned short a = *s;
  1049. !     if (x.rep->len != 0)
  1050. !     {
  1051. !       for (int j = 0; j < BITSETBITS && a != 0; ++j)
  1052. !       {
  1053. !         *fmt++ = (a & 1)? t : f;
  1054. !         a >>= 1;
  1055. !       }
  1056. !     }
  1057. !     *fmt++ = f;
  1058. !   }
  1059. !   else
  1060. !   {
  1061. !     unsigned short a = *s;
  1062. !     unsigned short mask = ONES;
  1063. !     unsigned short himask = (1 << (BITSETBITS - 1)) - 1;
  1064. !     if (x.rep->len != 0)
  1065. !     {
  1066. !       for (int j = 0; j < BITSETBITS && a != mask; ++j)
  1067. !       {
  1068. !         *fmt++ = (a & 1)? t : f;
  1069. !         a = (a >> 1) & himask;
  1070. !         mask = (mask >> 1) & himask;
  1071. !       }
  1072. !     }
  1073. !     *fmt++ = t;
  1074. !   }
  1075. ! 
  1076. !   *fmt++ = star;
  1077. !   *fmt++ = 0;
  1078.     return fmtbase;
  1079.   }
  1080.   
  1081. --- 753,764 ----
  1082.   const char* BitSettoa(const BitSet& x, char f, char t, char star)
  1083.   {
  1084.     trim(x.rep);
  1085.     size_t wrksiz = (x.rep->len + 1) * BITSETBITS + 2;
  1086.     char* fmtbase = (char *) _libgxx_fmtq.alloc(wrksiz);
  1087. !   ostrstream stream(fmtbase, wrksiz);
  1088. !   
  1089. !   x.printon(stream, f, t, star);
  1090. !   stream << ends;
  1091.     return fmtbase;
  1092.   }
  1093.   
  1094. ***************
  1095. *** 950,956 ****
  1096.   
  1097.   ostream& operator << (ostream& s, const BitSet& x)
  1098.   {
  1099. !   return s << BitSettoa(x);
  1100.   }
  1101.   
  1102.   int BitSet::OK() const
  1103. --- 907,966 ----
  1104.   
  1105.   ostream& operator << (ostream& s, const BitSet& x)
  1106.   {
  1107. !   if (s.opfx())
  1108. !     x.printon(s);
  1109. !   return s;
  1110. ! }
  1111. ! 
  1112. ! void BitSet::printon(ostream& s, char f, char t, char star) const
  1113. ! // FIXME:  Does not respect s.width()!
  1114. ! {
  1115. !   trim(rep);
  1116. !   register streambuf* sb = s.rdbuf();
  1117. !   const unsigned short* s = rep->s;
  1118. !   const unsigned short* top = &(s[rep->len - 1]);
  1119. ! 
  1120. !   while (s < top)
  1121. !   {
  1122. !     unsigned short a = *s++;
  1123. !     for (int j = 0; j < BITSETBITS; ++j)
  1124. !     {
  1125. !       sb->sputc((a & 1)? t : f);
  1126. !       a >>= 1;
  1127. !     }
  1128. !   }
  1129. ! 
  1130. !   if (!rep->virt)
  1131. !   {
  1132. !     unsigned short a = *s;
  1133. !     if (rep->len != 0)
  1134. !     {
  1135. !       for (int j = 0; j < BITSETBITS && a != 0; ++j)
  1136. !       {
  1137. !         sb->sputc((a & 1)? t : f);
  1138. !         a >>= 1;
  1139. !       }
  1140. !     }
  1141. !     sb->sputc(f);
  1142. !   }
  1143. !   else
  1144. !   {
  1145. !     unsigned short a = *s;
  1146. !     unsigned short mask = ONES;
  1147. !     unsigned short himask = (1 << (BITSETBITS - 1)) - 1;
  1148. !     if (rep->len != 0)
  1149. !     {
  1150. !       for (int j = 0; j < BITSETBITS && a != mask; ++j)
  1151. !       {
  1152. !         sb->sputc((a & 1)? t : f);
  1153. !         a = (a >> 1) & himask;
  1154. !         mask = (mask >> 1) & himask;
  1155. !       }
  1156. !     }
  1157. !     sb->sputc(t);
  1158. !   }
  1159. ! 
  1160. !   sb->sputc(star);
  1161.   }
  1162.   
  1163.   int BitSet::OK() const
  1164. *** 1.1    1992/03/22 07:42:32
  1165. --- xbitstri.cc    1992/06/03 14:00:09
  1166. ***************
  1167. *** 29,34 ****
  1168. --- 29,35 ----
  1169.   #include <xallocri.h>
  1170.   #include <new.h>
  1171.   #include <builtin.h>
  1172. + #include <strstrea.h>
  1173.   
  1174.   void BitString::error(const char* msg) const
  1175.   {
  1176. ***************
  1177. *** 1970,2001 ****
  1178.   
  1179.   extern AllocRing _libgxx_fmtq;
  1180.   
  1181. ! const char* BitStringtoa(const BitString& x, char f, char t)
  1182.   {
  1183. !   int wrksiz = x.length() + 2;
  1184. !   char* fmtbase = (char *) _libgxx_fmtq.alloc(wrksiz);
  1185. !   char* fmt = fmtbase;
  1186. !   size_t  xl = x.rep->len;
  1187. !   const unsigned short* s = x.rep->s;
  1188.     unsigned short a = 0;
  1189.   
  1190. !   for (size_t  i = 0; i < xl; ++i)
  1191.     {
  1192.       if (i % BITSTRBITS == 0)
  1193. !       a = *s++;
  1194. !     *fmt++ = (a & 1)? t : f;
  1195.       a >>= 1;
  1196.     }
  1197. ! 
  1198. !   *fmt = 0;
  1199.   
  1200.     return fmtbase;
  1201.   }
  1202.   
  1203. - 
  1204.   ostream& operator << (ostream& s, const BitString& x)
  1205.   {
  1206. !   return s << BitStringtoa(x);
  1207.   }
  1208.   
  1209.   const char* BitPatterntoa(const BitPattern& p, char f,char t,char x)
  1210. --- 1971,2010 ----
  1211.   
  1212.   extern AllocRing _libgxx_fmtq;
  1213.   
  1214. ! void BitString::printon(ostream& os, char f, char t) const
  1215.   {
  1216. !   size_t wrksiz = length() + 2;
  1217. !   size_t  xl = rep->len;
  1218. !   const unsigned short* ptr = rep->s;
  1219. !   register streambuf *sb = os.rdbuf();
  1220.     unsigned short a = 0;
  1221.   
  1222. !   for (size_t i = 0; i < xl; ++i)
  1223.     {
  1224.       if (i % BITSTRBITS == 0)
  1225. !       a = *ptr++;
  1226. !     sb->sputc((a & 1)? t : f);
  1227.       a >>= 1;
  1228.     }
  1229. ! }
  1230.   
  1231. + const char* BitStringtoa(const BitString& x, char f, char t)
  1232. + {
  1233. +   size_t wrksiz = x.length() + 2;
  1234. +   char* fmtbase = (char *) _libgxx_fmtq.alloc(wrksiz);
  1235. +   char* fmt = fmtbase;
  1236. +   ostrstream stream(fmtbase, wrksiz);
  1237. +   
  1238. +   x.printon(stream, f, t);
  1239. +   stream << ends;
  1240.     return fmtbase;
  1241.   }
  1242.   
  1243.   ostream& operator << (ostream& s, const BitString& x)
  1244.   {
  1245. !   if (s.opfx())
  1246. !     x.printon(s);
  1247. !   return s;
  1248.   }
  1249.   
  1250.   const char* BitPatterntoa(const BitPattern& p, char f,char t,char x)
  1251. ***************
  1252. *** 2006,2015 ****
  1253.   
  1254.     size_t wrksiz = l + 2;
  1255.     char* fmtbase = (char *) _libgxx_fmtq.alloc(wrksiz);
  1256. !   char* fmt = fmtbase;
  1257.   
  1258. !   const unsigned short* ps = p.pattern.rep->s;
  1259. !   const unsigned short* ms = p.mask.rep->s;
  1260.     unsigned short a = 0;
  1261.     unsigned short m = 0;
  1262.   
  1263. --- 2015,2036 ----
  1264.   
  1265.     size_t wrksiz = l + 2;
  1266.     char* fmtbase = (char *) _libgxx_fmtq.alloc(wrksiz);
  1267. !   ostrstream stream(fmtbase, wrksiz);
  1268. !   
  1269. !   p.printon(stream, f, t, x);
  1270. !   stream << ends;
  1271. !   return fmtbase;
  1272. ! }
  1273. ! 
  1274. ! void BitPattern::printon(ostream& s, char f,char t,char x) const
  1275. ! {
  1276. !   unsigned int  pl = pattern.rep->len;
  1277. !   unsigned int  ml = mask.rep->len;
  1278. !   unsigned int  l = (pl <= ml)? pl : ml;
  1279. !   register streambuf *sb = s.rdbuf();
  1280.   
  1281. !   const unsigned short* ps = pattern.rep->s;
  1282. !   const unsigned short* ms = mask.rep->s;
  1283.     unsigned short a = 0;
  1284.     unsigned short m = 0;
  1285.   
  1286. ***************
  1287. *** 2021,2041 ****
  1288.         m = *ms++;
  1289.       }
  1290.       if (m & 1)
  1291. !       *fmt++ =(a & 1)? t : f;
  1292.       else
  1293. !       *fmt++ = x;
  1294.       a >>= 1;
  1295.       m >>= 1;
  1296.     }
  1297. - 
  1298. -   *fmt = 0;
  1299. -   return fmtbase;
  1300.   }
  1301.   
  1302. - 
  1303.   ostream& operator << (ostream& s, const BitPattern& x)
  1304.   {
  1305. !   return s << BitPatterntoa(x);
  1306.   }
  1307.   
  1308.   
  1309. --- 2042,2060 ----
  1310.         m = *ms++;
  1311.       }
  1312.       if (m & 1)
  1313. !       sb->sputc((a & 1)? t : f);
  1314.       else
  1315. !       sb->sputc(x);
  1316.       a >>= 1;
  1317.       m >>= 1;
  1318.     }
  1319.   }
  1320.   
  1321.   ostream& operator << (ostream& s, const BitPattern& x)
  1322.   {
  1323. !   if (s.opfx())
  1324. !     x.printon(s);
  1325. !   return s;
  1326.   }
  1327.   
  1328.   
  1329. *** 1.1    1992/03/22 07:42:32
  1330. --- xcursesw.cc    1992/06/03 14:00:09
  1331. ***************
  1332. *** 21,31 ****
  1333.   #include <stdarg.h>
  1334.   #include <builtin.h>
  1335.   #include <values.h>
  1336. - #include <xcursesw.h>
  1337.   #ifndef _OLD_STREAMS
  1338.   #include <strstream.h>
  1339.   #include <ioprivate.h>
  1340.   #endif
  1341.   
  1342.   int CursesWindow::count = 0;
  1343.   
  1344. --- 21,33 ----
  1345.   #include <stdarg.h>
  1346.   #include <builtin.h>
  1347.   #include <values.h>
  1348.   #ifndef _OLD_STREAMS
  1349.   #include <strstream.h>
  1350.   #include <ioprivate.h>
  1351.   #endif
  1352. + // Include CurseW.h and/or curses.h *after* iostream includes,
  1353. + // because curses.h defines a clear macro that conflicts with iostream. Sigh.
  1354. + #include <xcursesw.h>
  1355.   
  1356.   int CursesWindow::count = 0;
  1357.   
  1358. ***************
  1359. *** 47,53 ****
  1360.     va_start(args, fmt);
  1361.   #ifdef VMS
  1362.     int result = wscanw(w , fmt , args);
  1363. ! #else
  1364.     char buf[BUFSIZ];
  1365.     int result = wgetstr(w, buf);
  1366.     if (result == OK) {
  1367. --- 49,55 ----
  1368.     va_start(args, fmt);
  1369.   #ifdef VMS
  1370.     int result = wscanw(w , fmt , args);
  1371. ! #else /* NOT VMS */
  1372.     char buf[BUFSIZ];
  1373.     int result = wgetstr(w, buf);
  1374.     if (result == OK) {
  1375. ***************
  1376. *** 62,73 ****
  1377.         b._ptr = buf;
  1378.         b._cnt = BUFSIZ;
  1379.         result = _doscan(&b, fmt, args);
  1380. ! #else
  1381.         result = vsscanf(buf, fmt, args);
  1382. ! #endif
  1383.   #endif /* _OLD_STREAMS */
  1384. - #endif
  1385.     }
  1386.     va_end(args);
  1387.     return result;
  1388.   }
  1389. --- 64,75 ----
  1390.         b._ptr = buf;
  1391.         b._cnt = BUFSIZ;
  1392.         result = _doscan(&b, fmt, args);
  1393. ! #else /* HAVE_VSCANF */
  1394.         result = vsscanf(buf, fmt, args);
  1395. ! #endif /* HAVE_VSCANF */
  1396.   #endif /* _OLD_STREAMS */
  1397.     }
  1398. + #endif /* !VMS */
  1399.     va_end(args);
  1400.     return result;
  1401.   }
  1402. ***************
  1403. *** 76,82 ****
  1404.   {
  1405.     va_list args;
  1406.     va_start(args, fmt);
  1407. - #ifndef VMS
  1408.     char buf[BUFSIZ];
  1409.     int result = wmove(w, y, x);
  1410.     if (result == OK)
  1411. --- 78,83 ----
  1412. ***************
  1413. *** 83,89 ****
  1414.   #ifdef VMS
  1415.     result=wscanw(w , fmt , args);
  1416.   #else /* !VMS */
  1417. !   {
  1418.       result = wgetstr(w, buf);
  1419.       if (result == OK) {
  1420.   #ifndef _OLD_STREAMS
  1421. --- 84,90 ----
  1422.   #ifdef VMS
  1423.     result=wscanw(w , fmt , args);
  1424.   #else /* !VMS */
  1425. !  {
  1426.       result = wgetstr(w, buf);
  1427.       if (result == OK) {
  1428.   #ifndef _OLD_STREAMS
  1429. ***************
  1430. *** 101,110 ****
  1431.       result = vsscanf(buf, fmt, args);
  1432.   #endif
  1433.   #endif /* OLD_STREAMS */
  1434. - #endif /* !VMS */
  1435. -     }
  1436.     }
  1437. ! #endif
  1438.     va_end(args);
  1439.     return result;
  1440.   }
  1441. --- 102,110 ----
  1442.       result = vsscanf(buf, fmt, args);
  1443.   #endif
  1444.   #endif /* OLD_STREAMS */
  1445.     }
  1446. !   }
  1447. ! #endif /* !VMS */
  1448.     va_end(args);
  1449.     return result;
  1450.   }
  1451. *** 1.1    1992/03/22 07:42:32
  1452. --- xeh.cc    1992/06/03 14:00:10
  1453. ***************
  1454. *** 7,12 ****
  1455. --- 7,13 ----
  1456.   #endif
  1457.   #include <setjmp.h>
  1458.   #include <stream.h>
  1459. + #include <osfcn.h>
  1460.   
  1461.   struct
  1462.   ExceptionHandler
  1463. *** 1.1    1992/03/22 07:42:32
  1464. --- xfix.cc    1992/06/03 14:00:10
  1465. ***************
  1466. *** 26,31 ****
  1467. --- 26,32 ----
  1468.   #include <std.h>
  1469.   #include <xobstack.h>
  1470.   #include <xallocri.h>
  1471. + #include <strstrea.h>
  1472.   
  1473.   // default parameters
  1474.   
  1475. ***************
  1476. *** 451,468 ****
  1477.   
  1478.   extern AllocRing _libgxx_fmtq;
  1479.   
  1480.   char* Ftoa(Fix& x, int width)
  1481.   {
  1482.     int wrksiz = width + 2;
  1483. !   char *s = (char *) _libgxx_fmtq.alloc(wrksiz);
  1484. !   char format[100];
  1485. !   double val = value(x);
  1486. !   if (val < 0)
  1487. !     sprintf(format,"%%%d.%dlf",width-2,width-3);
  1488. !   else
  1489. !     sprintf(format," %%%d.%dlf",width-2,width-3);
  1490. !   sprintf(s,format,val);
  1491. !   return s;
  1492.   }
  1493.   
  1494.   extern Obstack _libgxx_io_ob;
  1495. --- 452,480 ----
  1496.   
  1497.   extern AllocRing _libgxx_fmtq;
  1498.   
  1499. + void Fix::printon(ostream& s, int width)
  1500. + {
  1501. +   char format[20];
  1502. +   double val = value(*this);
  1503. +   int old_precision = s.precision(width-3);
  1504. +   fmtflags old_flags = s.setf(ios::fixed, ios::fixed|ios::scientific);
  1505. +   if (val >= 0)
  1506. +       s << ' ';
  1507. +   s.width(width-2);
  1508. +   s << val;
  1509. +   s.precision(old_precision);
  1510. +   s.flags(old_flags);
  1511. + }
  1512. + 
  1513.   char* Ftoa(Fix& x, int width)
  1514.   {
  1515.     int wrksiz = width + 2;
  1516. !   char *fmtbase = (char *) _libgxx_fmtq.alloc(wrksiz);
  1517. !   ostrstream stream(fmtbase, wrksiz);
  1518. !   
  1519. !   x.printon(stream, width);
  1520. !   stream << ends;
  1521. !   return fmtbase;
  1522.   }
  1523.   
  1524.   extern Obstack _libgxx_io_ob;
  1525. ***************
  1526. *** 542,548 ****
  1527.     cout << "len = " << x.rep->len << "\n";
  1528.     cout << "siz = " << x.rep->siz << "\n";
  1529.     cout << "ref = " << x.rep->ref << "\n";
  1530. !   cout << "man = " << Itoa(mantissa(x),16,4*x.rep->siz) << "\n";
  1531.     cout << "val = " << value(x) << "\n";
  1532.   }
  1533.   
  1534. --- 554,569 ----
  1535.     cout << "len = " << x.rep->len << "\n";
  1536.     cout << "siz = " << x.rep->siz << "\n";
  1537.     cout << "ref = " << x.rep->ref << "\n";
  1538. !   cout << "man = ";
  1539. ! #ifdef _OLD_STREAMS
  1540. !   cout << Itoa(mantissa(x),16,4*x.rep->siz);
  1541. ! #else
  1542. !   int old_flags = cout.setf(ios::hex, ios::hex|ios::dec|ios::oct);
  1543. !   cout.width(4*x.rep->siz);
  1544. !   cout << mantissa(x);
  1545. !   cout.setf(old_flags, ios::hex|ios::dec|ios::oct);
  1546. ! #endif
  1547. !   cout << "\n";
  1548.     cout << "val = " << value(x) << "\n";
  1549.   }
  1550.   
  1551. *** 1.2    1992/03/22 21:19:02
  1552. --- xfix24.cc    1992/06/03 14:00:11
  1553. ***************
  1554. *** 204,234 ****
  1555.     return r;
  1556.   }
  1557.   
  1558. - Fix48 operator * (Fix48& a, int b)
  1559. - {
  1560. -   twolongs r;
  1561. -   int bpos = (b >= 0);
  1562. -   unsigned ub = (bpos)? b : -b;
  1563. -   if ( ub >= 65536L ) {
  1564. -     r = (bpos)? Fix48_m_max : Fix48_m_min;
  1565. -     a.range_error(r);
  1566. -   }
  1567. -   else {
  1568. -     unsigned long 
  1569. -       lo_r = (a.m.l & 0xffff) * ub,
  1570. -       mi_r = ((a.m.l >> 16) & 0xffff) * ub,
  1571. -       hi_r = a.m.u * ub;
  1572. -     r.l = lo_r + (mi_r << 16);
  1573. -     r.u = hi_r + ((mi_r >> 8) & 0x00ffff00L);
  1574. -     if ( !bpos ) {
  1575. -       unsigned long l = r.l;
  1576. -       r.l = -r.l;
  1577. -       r.u = ~r.u + ((l ^ r.l) & Fix24_msb ? 0 : Fix24_lsb);
  1578. -     }
  1579. -   }
  1580. -   return r;
  1581. - }
  1582. - 
  1583.   Fix48 operator << (Fix48& a, int b)
  1584.   {
  1585.     twolongs r; r.u = r.l = 0;
  1586. --- 204,209 ----
  1587. *** 1.1    1992/03/22 07:42:32
  1588. --- xinteger.cc    1992/06/03 14:00:12
  1589. ***************
  1590. *** 66,72 ****
  1591. --- 66,76 ----
  1592.   #define MALLOC_MIN_OVERHEAD 4
  1593.   #endif
  1594.   
  1595. + IntRep _ZeroRep = {1, 0, 1, {0}};
  1596. + IntRep _OneRep = {1, 0, 1, {1}};
  1597. + IntRep _MinusOneRep = {1, 0, 0, {1}};
  1598.   
  1599. + 
  1600.   // utilities to extract and transfer bits 
  1601.   
  1602.   // get low bits
  1603. ***************
  1604. *** 177,183 ****
  1605.     scpy(src, rep->s, srclen);
  1606.     Iclear_from(rep, srclen);
  1607.   
  1608. !   if (old != rep && old != 0) delete old;
  1609.     return rep;
  1610.   }
  1611.   
  1612. --- 181,187 ----
  1613.     scpy(src, rep->s, srclen);
  1614.     Iclear_from(rep, srclen);
  1615.   
  1616. !   if (old != rep && old != 0 && !STATIC_IntRep(old)) delete old;
  1617.     return rep;
  1618.   }
  1619.   
  1620. ***************
  1621. *** 188,194 ****
  1622.     IntRep* rep;
  1623.     if (old == 0 || newlen > old->sz)
  1624.     {
  1625. !     if (old != 0) delete old;
  1626.       rep = Inew(newlen);
  1627.     }
  1628.     else
  1629. --- 192,198 ----
  1630.     IntRep* rep;
  1631.     if (old == 0 || newlen > old->sz)
  1632.     {
  1633. !     if (old != 0 && !STATIC_IntRep(old)) delete old;
  1634.       rep = Inew(newlen);
  1635.     }
  1636.     else
  1637. ***************
  1638. *** 221,227 ****
  1639.         rep = Inew(newlen);
  1640.         scpy(old->s, rep->s, oldlen);
  1641.         rep->sgn = old->sgn;
  1642. !       delete old;
  1643.       }
  1644.       else
  1645.         rep = old;
  1646. --- 225,231 ----
  1647.         rep = Inew(newlen);
  1648.         scpy(old->s, rep->s, oldlen);
  1649.         rep->sgn = old->sgn;
  1650. !       if (!STATIC_IntRep(old)) delete old;
  1651.       }
  1652.       else
  1653.         rep = old;
  1654. ***************
  1655. *** 257,263 ****
  1656.       int newlen = src->len;
  1657.       if (old == 0 || newlen > old->sz)
  1658.       {
  1659. !       if (old != 0) delete old;
  1660.         rep = Inew(newlen);
  1661.       }
  1662.       else
  1663. --- 261,267 ----
  1664.       int newlen = src->len;
  1665.       if (old == 0 || newlen > old->sz)
  1666.       {
  1667. !       if (old != 0 && !STATIC_IntRep(old)) delete old;
  1668.         rep = Inew(newlen);
  1669.       }
  1670.       else
  1671. ***************
  1672. *** 294,300 ****
  1673.     IntRep* rep;
  1674.     if (old == 0 || srclen > old->sz)
  1675.     {
  1676. !     if (old != 0) delete old;
  1677.       rep = Inew(srclen);
  1678.     }
  1679.     else
  1680. --- 298,304 ----
  1681.     IntRep* rep;
  1682.     if (old == 0 || srclen > old->sz)
  1683.     {
  1684. !     if (old != 0 && !STATIC_IntRep(old)) delete old;
  1685.       rep = Inew(srclen);
  1686.     }
  1687.     else
  1688. ***************
  1689. *** 313,328 ****
  1690.   
  1691.   IntRep* Icopy_zero(IntRep* old)
  1692.   {
  1693. -   IntRep* rep;
  1694.     if (old == 0)
  1695. !     rep = Inew(0);
  1696. !   else
  1697. !     rep = old;
  1698.   
  1699. !   rep->len = 0;
  1700. !   rep->sgn = I_POSITIVE;
  1701.   
  1702. !   return rep;
  1703.   }
  1704.   
  1705.   // special case for 1 or -1
  1706. --- 317,329 ----
  1707.   
  1708.   IntRep* Icopy_zero(IntRep* old)
  1709.   {
  1710.     if (old == 0)
  1711. !     return &_ZeroRep;
  1712.   
  1713. !   old->len = 0;
  1714. !   old->sgn = I_POSITIVE;
  1715.   
  1716. !   return old;
  1717.   }
  1718.   
  1719.   // special case for 1 or -1
  1720. ***************
  1721. *** 329,348 ****
  1722.   
  1723.   IntRep* Icopy_one(IntRep* old, int newsgn)
  1724.   {
  1725. -   IntRep* rep;
  1726.     if (old == 0 || 1 > old->sz)
  1727.     {
  1728. !     if (old != 0) delete old;
  1729. !     rep = Inew(1);
  1730.     }
  1731. -   else
  1732. -     rep = old;
  1733.   
  1734. !   rep->sgn = newsgn;
  1735. !   rep->len = 1;
  1736. !   rep->s[0] = 1;
  1737.   
  1738. !   return rep;
  1739.   }
  1740.   
  1741.   // convert to a legal two's complement long if possible
  1742. --- 330,346 ----
  1743.   
  1744.   IntRep* Icopy_one(IntRep* old, int newsgn)
  1745.   {
  1746.     if (old == 0 || 1 > old->sz)
  1747.     {
  1748. !     if (old != 0 && !STATIC_IntRep(old)) delete old;
  1749. !     return newsgn==I_NEGATIVE ? &_MinusOneRep : &_OneRep;
  1750.     }
  1751.   
  1752. !   old->sgn = newsgn;
  1753. !   old->len = 1;
  1754. !   old->s[0] = 1;
  1755.   
  1756. !   return old;
  1757.   }
  1758.   
  1759.   // convert to a legal two's complement long if possible
  1760. ***************
  1761. *** 1234,1241 ****
  1762.       q = Icalloc(q, ql);
  1763.       do_divide(r->s, yy->s, yl, q->s, ql);
  1764.   
  1765. !     if (yy != y) delete yy;
  1766. !     delete r;
  1767.     }
  1768.     q->sgn = samesign;
  1769.     Icheck(q);
  1770. --- 1232,1239 ----
  1771.       q = Icalloc(q, ql);
  1772.       do_divide(r->s, yy->s, yl, q->s, ql);
  1773.   
  1774. !     if (yy != y && !STATIC_IntRep(yy)) delete yy;
  1775. !     if (!STATIC_IntRep(r)) delete r;
  1776.     }
  1777.     q->sgn = samesign;
  1778.     Icheck(q);
  1779. ***************
  1780. *** 1302,1308 ****
  1781.       q = Icalloc(q, ql);
  1782.       do_divide(r->s, ys, yl, q->s, ql);
  1783.   
  1784. !     delete r;
  1785.     }
  1786.     q->sgn = samesign;
  1787.     Icheck(q);
  1788. --- 1300,1306 ----
  1789.       q = Icalloc(q, ql);
  1790.       do_divide(r->s, ys, yl, q->s, ql);
  1791.   
  1792. !     if (!STATIC_IntRep(r)) delete r;
  1793.     }
  1794.     q->sgn = samesign;
  1795.     Icheck(q);
  1796. ***************
  1797. *** 1384,1390 ****
  1798.       }
  1799.       Icheck(r);
  1800.       rem = Itolong(r);
  1801. !     delete r;
  1802.     }
  1803.     rem = abs(rem);
  1804.     if (xsgn == I_NEGATIVE) rem = -rem;
  1805. --- 1382,1388 ----
  1806.       }
  1807.       Icheck(r);
  1808.       rem = Itolong(r);
  1809. !     if (!STATIC_IntRep(r)) delete r;
  1810.     }
  1811.     rem = abs(rem);
  1812.     if (xsgn == I_NEGATIVE) rem = -rem;
  1813. ***************
  1814. *** 1453,1459 ****
  1815.       q = Icalloc(q, ql);
  1816.       do_divide(r->s, yy->s, yl, q->s, ql);
  1817.   
  1818. !     if (yy != y) delete yy;
  1819.       if (prescale != 1)
  1820.       {
  1821.         Icheck(r);
  1822. --- 1451,1457 ----
  1823.       q = Icalloc(q, ql);
  1824.       do_divide(r->s, yy->s, yl, q->s, ql);
  1825.   
  1826. !     if (yy != y && !STATIC_IntRep(yy)) delete yy;
  1827.       if (prescale != 1)
  1828.       {
  1829.         Icheck(r);
  1830. ***************
  1831. *** 1507,1513 ****
  1832.         
  1833.       do_divide(r->s, yy->s, yl, 0, xl - yl + 1);
  1834.   
  1835. !     if (yy != y) delete yy;
  1836.   
  1837.       if (prescale != 1)
  1838.       {
  1839. --- 1505,1511 ----
  1840.         
  1841.       do_divide(r->s, yy->s, yl, 0, xl - yl + 1);
  1842.   
  1843. !     if (yy != y && !STATIC_IntRep(yy)) delete yy;
  1844.   
  1845.       if (prescale != 1)
  1846.       {
  1847. ***************
  1848. *** 1947,1954 ****
  1849.         t = add(t, 0, u, 0, t);
  1850.       }
  1851.     }
  1852. !   delete t;
  1853. !   delete v;
  1854.     if (k != 0) u = lshift(u, k, u);
  1855.     return u;
  1856.   }
  1857. --- 1945,1952 ----
  1858.         t = add(t, 0, u, 0, t);
  1859.       }
  1860.     }
  1861. !   if (!STATIC_IntRep(t)) delete t;
  1862. !   if (!STATIC_IntRep(v)) delete v;
  1863.     if (k != 0) u = lshift(u, k, u);
  1864.     return u;
  1865.   }
  1866. ***************
  1867. *** 2006,2012 ****
  1868.         else
  1869.           b = multiply(b, b, b);
  1870.       }
  1871. !     delete b;
  1872.     }
  1873.     r->sgn = sgn;
  1874.     Icheck(r);
  1875. --- 2004,2010 ----
  1876.         else
  1877.           b = multiply(b, b, b);
  1878.       }
  1879. !     if (!STATIC_IntRep(b)) delete b;
  1880.     }
  1881.     r->sgn = sgn;
  1882.     Icheck(r);
  1883. ***************
  1884. *** 2160,2183 ****
  1885.   #ifdef _OLD_STREAMS
  1886.     return s << Itoa(y.rep);
  1887.   #else
  1888. !   int base = (s.flags() & ios::oct) ? 8 : (s.flags() & ios::hex) ? 16 : 10;
  1889.     int align_right = !(s.flags() & ios::left);
  1890.     int showpos = s.flags() & ios::showpos;
  1891.     int showbase = s.flags() & ios::showbase;
  1892.     char fillchar = s.fill();
  1893.     char Xcase = (s.flags() & ios::uppercase)? 'X' : 'x';
  1894. !   int width = s.width();
  1895. !   const IntRep* x = y.rep;
  1896.     int fmtlen = (x->len + 1) * I_SHIFT / lg(base) + 4 + width;
  1897.     char* fmtbase = new char[fmtlen];
  1898.     char* f = cvtItoa(x, fmtbase, fmtlen, base, showbase, width, align_right,
  1899. !                     fillchar, Xcase, showpos);
  1900.     s.write(f, fmtlen);
  1901.     delete fmtbase;
  1902. -   return s;
  1903. - #endif
  1904.   }
  1905. -   
  1906.   
  1907.   char*  cvtItoa(const IntRep* x, char* fmt, int& fmtlen, int base, int showbase,
  1908.                 int width, int align_right, char fillchar, char Xcase, 
  1909. --- 2158,2188 ----
  1910.   #ifdef _OLD_STREAMS
  1911.     return s << Itoa(y.rep);
  1912.   #else
  1913. !   if (s.opfx())
  1914. !     {
  1915. !       int base = (s.flags() & ios::oct) ? 8 : (s.flags() & ios::hex) ? 16 : 10;
  1916. !       int width = s.width();
  1917. !       y.printon(s, base, width);
  1918. !     }
  1919. !   return s;
  1920. ! #endif
  1921. ! }
  1922. ! 
  1923. ! void Integer::printon(ostream& s, int base /* =10 */, int width /* =0 */) const
  1924. ! {
  1925.     int align_right = !(s.flags() & ios::left);
  1926.     int showpos = s.flags() & ios::showpos;
  1927.     int showbase = s.flags() & ios::showbase;
  1928.     char fillchar = s.fill();
  1929.     char Xcase = (s.flags() & ios::uppercase)? 'X' : 'x';
  1930. !   const IntRep* x = rep;
  1931.     int fmtlen = (x->len + 1) * I_SHIFT / lg(base) + 4 + width;
  1932.     char* fmtbase = new char[fmtlen];
  1933.     char* f = cvtItoa(x, fmtbase, fmtlen, base, showbase, width, align_right,
  1934. !             fillchar, Xcase, showpos);
  1935.     s.write(f, fmtlen);
  1936.     delete fmtbase;
  1937.   }
  1938.   
  1939.   char*  cvtItoa(const IntRep* x, char* fmt, int& fmtlen, int base, int showbase,
  1940.                 int width, int align_right, char fillchar, char Xcase, 
  1941. ***************
  1942. *** 2222,2228 ****
  1943.               ch += '0';
  1944.             *--s = ch;
  1945.           }
  1946. !         delete z;
  1947.           break;
  1948.         }
  1949.         else
  1950. --- 2227,2233 ----
  1951.               ch += '0';
  1952.             *--s = ch;
  1953.           }
  1954. !     if (!STATIC_IntRep(z)) delete z;
  1955.           break;
  1956.         }
  1957.         else
  1958. ***************
  1959. *** 2390,2405 ****
  1960.   
  1961.   int Integer::OK() const
  1962.   {
  1963. !   int v = rep != 0;             // have a rep
  1964. !   int l = rep->len;
  1965. !   int s = rep->sgn;
  1966. !   v &= l <= rep->sz;            // length with bounds
  1967. !   v &= s == 0 || s == 1;        // legal sign
  1968. !   Icheck(rep);                  // and correctly adjusted
  1969. !   v &= rep->len == l;
  1970. !   v &= rep->sgn == s;
  1971. !   if (!v) error("invariant failure");
  1972. !   return v;
  1973.   }
  1974.   
  1975.   void Integer::error(const char* msg) const
  1976. --- 2395,2414 ----
  1977.   
  1978.   int Integer::OK() const
  1979.   {
  1980. !   if (rep != 0)
  1981. !     {
  1982. !       int l = rep->len;
  1983. !       int s = rep->sgn;
  1984. !       int v = l <= rep->sz || STATIC_IntRep(rep);    // length within bounds
  1985. !       v &= s == 0 || s == 1;        // legal sign
  1986. !       Icheck(rep);                  // and correctly adjusted
  1987. !       v &= rep->len == l;
  1988. !       v &= rep->sgn == s;
  1989. !       if (v)
  1990. !       return v;
  1991. !     }
  1992. !   error("invariant failure");
  1993. !   return 0;
  1994.   }
  1995.   
  1996.   void Integer::error(const char* msg) const
  1997. *** 1.1    1992/03/22 07:42:32
  1998. --- xobstack.cc    1992/06/03 14:00:13
  1999. ***************
  2000. *** 110,123 ****
  2001.       (*lib_error_handler)("Obstack", "invariant failure");
  2002.     return v;
  2003.   }
  2004. - 
  2005. - 
  2006. - #ifdef VMS
  2007. - #include "libgxx-io-ob.cc"
  2008. - // The reason that this needs to be included is that if the modules for libg++
  2009. - // are placed in a library, and libgxx-ob-io is in a seperate module, then
  2010. - // that module contains only two symbols -  the contstructor and destructor.
  2011. - // they are not called explicitly anywhere else, so that module is not linked
  2012. - // in, and the contstructor is not called.  Chaos ensues.
  2013. - #endif
  2014. - 
  2015. --- 110,112 ----
  2016. *** 1.1    1992/03/22 07:42:32
  2017. --- xrationa.cc    1992/06/03 14:00:14
  2018. ***************
  2019. *** 23,30 ****
  2020.   #include <math.h>
  2021.   #include <values.h>
  2022.   #include <builtin.h>
  2023.   
  2024. - 
  2025.   void Rational::error(const char* msg) const
  2026.   {
  2027.     (*lib_error_handler)("Rational", msg);
  2028. --- 23,30 ----
  2029.   #include <math.h>
  2030.   #include <values.h>
  2031.   #include <builtin.h>
  2032. + #include <float.h>
  2033.   
  2034.   void Rational::error(const char* msg) const
  2035.   {
  2036.     (*lib_error_handler)("Rational", msg);
  2037. ***************
  2038. *** 393,400 ****
  2039.   int Rational::OK() const
  2040.   {
  2041.     int v = num.OK() && den.OK(); // have valid num and denom
  2042. !   v &= sign(den) > 0;           // denominator positive;
  2043. !   v &=  ucompare(gcd(num, den), _Int_One) == 0; // relatively prime
  2044.     if (!v) error("invariant failure");
  2045.     return v;
  2046.   }
  2047. --- 393,415 ----
  2048.   int Rational::OK() const
  2049.   {
  2050.     int v = num.OK() && den.OK(); // have valid num and denom
  2051. !   if (v)
  2052. !     {
  2053. !       v &= sign(den) > 0;           // denominator positive;
  2054. !       v &=  ucompare(gcd(num, den), _Int_One) == 0; // relatively prime
  2055. !     }
  2056.     if (!v) error("invariant failure");
  2057.     return v;
  2058. + }
  2059. + 
  2060. + int
  2061. + Rational::fits_in_float() const
  2062. + {
  2063. +     return FLT_MIN <= *this && *this <= FLT_MAX;
  2064. + }
  2065. + 
  2066. + int
  2067. + Rational::fits_in_double() const
  2068. + {
  2069. +     return DBL_MIN <= *this && *this <= DBL_MAX;
  2070.   }
  2071. *** 1.1    1992/03/22 07:42:32
  2072. --- xrng.cc    1992/06/03 14:00:14
  2073. ***************
  2074. *** 22,34 ****
  2075.   #include <builtin.h>
  2076.   #include <xrng.h>
  2077.   
  2078. ! // these get initialized right in the ctors, but need default value in C++
  2079. ! // (even if trash, as here)
  2080. ! 
  2081. ! PrivateRNGSingleType PrivateRNGSingleTypeInit;
  2082. ! PrivateRNGDoubleType PrivateRNGDoubleTypeInit;
  2083. ! PrivateRNGSingleType RNG::singleMantissa = PrivateRNGSingleTypeInit;
  2084. ! PrivateRNGDoubleType RNG::doubleMantissa = PrivateRNGDoubleTypeInit;
  2085.   
  2086.   //
  2087.   //    The scale constant is 2^-31. It is used to scale a 31 bit
  2088. --- 22,30 ----
  2089.   #include <builtin.h>
  2090.   #include <xrng.h>
  2091.   
  2092. ! // These two static fields get initialized by RNG::RNG().
  2093. ! PrivateRNGSingleType RNG::singleMantissa;
  2094. ! PrivateRNGDoubleType RNG::doubleMantissa;
  2095.   
  2096.   //
  2097.   //    The scale constant is 2^-31. It is used to scale a 31 bit
  2098. *** 1.1    1992/03/22 07:42:32
  2099. --- xstring.cc    1992/06/03 14:00:15
  2100. ***************
  2101. *** 1206,1221 ****
  2102.       return s;
  2103.     }
  2104.   #else
  2105. !   if (!s.ipfx(0))
  2106.     {
  2107.       s.set(ios::failbit); // Redundant if using GNU iostreams.
  2108.       return s;
  2109.     }
  2110.   #endif
  2111. !   char ch;
  2112.     int i = 0;
  2113.     x.rep = Sresize(x.rep, 20);
  2114. !   while (s.get(ch))
  2115.     {
  2116.       if (isspace(ch))
  2117.         break;
  2118. --- 1206,1222 ----
  2119.       return s;
  2120.     }
  2121.   #else
  2122. !   if (!s.ipfx(0) || (!(s.flags() & ios::skipws) && !ws(s)))
  2123.     {
  2124.       s.set(ios::failbit); // Redundant if using GNU iostreams.
  2125.       return s;
  2126.     }
  2127.   #endif
  2128. !   int ch;
  2129.     int i = 0;
  2130.     x.rep = Sresize(x.rep, 20);
  2131. !   register streambuf *sb = s.rdbuf();
  2132. !   while ((ch = sb->sbumpc()) != EOF)
  2133.     {
  2134.       if (isspace(ch))
  2135.         break;
  2136. ***************
  2137. *** 1225,1231 ****
  2138.     }
  2139.     x.rep->s[i] = 0;
  2140.     x.rep->len = i;
  2141. !   if(i == 0) s.clear(_bad);
  2142.     return s;
  2143.   }
  2144.   
  2145. --- 1226,1233 ----
  2146.     }
  2147.     x.rep->s[i] = 0;
  2148.     x.rep->len = i;
  2149. !   if (i == 0) s.set(_fail);
  2150. !   if (ch == EOF) s.set(_eof);
  2151.     return s;
  2152.   }
  2153.   
  2154. ***************
  2155. *** 1239,1248 ****
  2156.     {
  2157.       return 0;
  2158.     }
  2159. !   char ch;
  2160.     int i = 0;
  2161.     x.rep = Sresize(x.rep, 80);
  2162. !   while (s.get(ch))
  2163.     {
  2164.       if (ch != terminator || !discard)
  2165.       {
  2166. --- 1241,1251 ----
  2167.     {
  2168.       return 0;
  2169.     }
  2170. !   int ch;
  2171.     int i = 0;
  2172.     x.rep = Sresize(x.rep, 80);
  2173. !   register streambuf *sb = s.rdbuf();
  2174. !   while ((ch = sb->sbumpc()) != EOF)
  2175.     {
  2176.       if (ch != terminator || !discard)
  2177.       {
  2178. ***************
  2179. *** 1255,1260 ****
  2180. --- 1258,1264 ----
  2181.     }
  2182.     x.rep->s[i] = 0;
  2183.     x.rep->len = i;
  2184. +   if (ch == EOF) s.set(_eof);
  2185.     return i;
  2186.   }
  2187.   
  2188. ***************
  2189. *** 1305,1315 ****
  2190.   
  2191.   int String::OK() const
  2192.   {
  2193. !   int v = rep != 0;             // have a rep
  2194. !   v &= rep->len <= rep->sz;     // string within bounds
  2195. !   v &= rep->s[rep->len] == 0;   // null-terminated
  2196. !   if (!v) error("invariant failure");
  2197. !   return v;
  2198.   }
  2199.   
  2200.   int SubString::OK() const
  2201. --- 1309,1319 ----
  2202.   
  2203.   int String::OK() const
  2204.   {
  2205. !   if (rep == 0             // don't have a rep
  2206. !     || rep->len > rep->sz     // string oustide bounds
  2207. !     || rep->s[rep->len] != 0)   // not null-terminated
  2208. !       error("invariant failure");
  2209. !   return 1;
  2210.   }
  2211.   
  2212.   int SubString::OK() const
  2213.